﻿
Module inisialisasi
    
    Public Sub load_Setting()
        APP.Name = "Aplikasi PPDB 2012 Kota Bandung"
        APP.Version = "1.0"
        APP.SALT = "uzumaki"

        APP.Host.URL = "www.ppdb2012.web.id"
        APP.Host.PATH = "\"

        APP.Info.Jenjang = Reg.getValue(REG_JENJANG)
        APP.Info.KD_Sekolah = Reg.getValue(REG_KD_SEKOLAH)
        APP.Info.Serial = Reg.getValue(REG_SERIAL)

        APP.Info.Host = Reg.getValue(REG_HOST)
        APP.Info.Port = Reg.getValue(REG_PORT)
        APP.Info.User = Reg.getValue(REG_USER)
        APP.Info.Password = Reg.getValue(REG_PASSWORD)
        APP.Info.Database = Reg.getValue(REG_DATABASE)

        APP.Info.Pertamax = Reg.getValue(REG_PERTAMAX)

        If Reg.getValue(REG_ISSERVER) = "1" Then
            APP.Info.IsServer = True
        Else
            APP.Info.IsServer = False
        End If

    End Sub

    Public Sub save_Setting()

        Reg.setValue(REG_JENJANG, "SMK")
        Reg.setValue(REG_KD_SEKOLAH, "404")
        Reg.setValue(REG_SERIAL, GenerateKey("404"))

        Reg.setValue(REG_HOST, "localhost")
        Reg.setValue(REG_PORT, "3306")
        Reg.setValue(REG_USER, "yanto")
        Reg.setValue(REG_PASSWORD, "yanto")
        Reg.setValue(REG_DATABASE, "ppdb2012")
        Reg.setValue(REG_ISSERVER, "1")

        'Reg.setValue(REG_PERTAMAX, "1")

    End Sub



    Public Sub init_List_SMP()
        ListSekolah.Add(1, "201", "SMP NEGERI 1 Bandung", 1)
        ListSekolah.Add(2, "202", "SMP NEGERI 2 Bandung", 1)
        ListSekolah.Add(3, "203", "SMP NEGERI 3 Bandung", 1)
        ListSekolah.Add(4, "204", "SMP NEGERI 4 Bandung", 1)
        ListSekolah.Add(5, "205", "SMP NEGERI 5 Bandung", 1)
        ListSekolah.Add(6, "206", "SMP NEGERI 6 Bandung", 3)
        ListSekolah.Add(7, "207", "SMP NEGERI 7 Bandung", 1)
        ListSekolah.Add(8, "208", "SMP NEGERI 8 Bandung", 1)
        ListSekolah.Add(9, "209", "SMP NEGERI 9 Bandung", 2)
        ListSekolah.Add(10, "210", "SMP NEGERI 10 Bandung", 2)

        ListSekolah.Add(11, "211", "SMP NEGERI 11 Bandung", 2)
        ListSekolah.Add(12, "212", "SMP NEGERI 12 Bandung", 1)
        ListSekolah.Add(13, "213", "SMP NEGERI 13 Bandung", 1)
        ListSekolah.Add(14, "214", "SMP NEGERI 14 Bandung", 1)
        ListSekolah.Add(15, "215", "SMP NEGERI 15 Bandung", 2)
        ListSekolah.Add(16, "216", "SMP NEGERI 16 Bandung", 2)
        ListSekolah.Add(17, "217", "SMP NEGERI 17 Bandung", 2)
        ListSekolah.Add(18, "218", "SMP NEGERI 18 Bandung", 2)
        ListSekolah.Add(19, "219", "SMP NEGERI 19 Bandung", 3)
        ListSekolah.Add(20, "220", "SMP NEGERI 20 Bandung", 3)

        ListSekolah.Add(21, "221", "SMP NEGERI 21 Bandung", 3)
        ListSekolah.Add(22, "222", "SMP NEGERI 22 Bandung", 3)
        ListSekolah.Add(23, "223", "SMP NEGERI 23 Bandung", 3)
        ListSekolah.Add(24, "224", "SMP NEGERI 24 Bandung", 2)
        ListSekolah.Add(25, "225", "SMP NEGERI 25 Bandung", 3)
        ListSekolah.Add(26, "226", "SMP NEGERI 26 Bandung", 2)
        ListSekolah.Add(27, "227", "SMP NEGERI 27 Bandung", 2)
        ListSekolah.Add(28, "228", "SMP NEGERI 28 Bandung", 1)
        ListSekolah.Add(29, "229", "SMP NEGERI 29 Bandung", 3)
        ListSekolah.Add(30, "230", "SMP NEGERI 30 Bandung", 1)
        ListSekolah.Add(31, "231", "SMP NEGERI 31 Bandung", 3)

        ListSekolah.Add(32, "232", "SMP NEGERI 32 Bandung", 3)
        ListSekolah.Add(33, "233", "SMP NEGERI 33 Bandung", 2)
        ListSekolah.Add(34, "234", "SMP NEGERI 34 Bandung", 1)
        ListSekolah.Add(35, "235", "SMP NEGERI 35 Bandung", 3)
        ListSekolah.Add(36, "236", "SMP NEGERI 36 Bandung", 2)
        ListSekolah.Add(37, "237", "SMP NEGERI 37 Bandung", 3)
        ListSekolah.Add(38, "238", "SMP NEGERI 38 Bandung", 3)
        ListSekolah.Add(39, "239", "SMP NEGERI 39 Bandung", 3)
        ListSekolah.Add(40, "240", "SMP NEGERI 40 Bandung", 3)

        ListSekolah.Add(41, "241", "SMP NEGERI 41 Bandung", 2)
        ListSekolah.Add(42, "242", "SMP NEGERI 42 Bandung", 3)
        ListSekolah.Add(43, "243", "SMP NEGERI 43 Bandung", 2)
        ListSekolah.Add(44, "244", "SMP NEGERI 44 Bandung", 2)
        ListSekolah.Add(45, "245", "SMP NEGERI 45 Bandung", 3)
        ListSekolah.Add(46, "246", "SMP NEGERI 46 Bandung", 3)
        ListSekolah.Add(47, "247", "SMP NEGERI 47 Bandung", 3)
        ListSekolah.Add(48, "248", "SMP NEGERI 48 Bandung", 3)
        ListSekolah.Add(49, "249", "SMP NEGERI 49 Bandung", 3)
        ListSekolah.Add(50, "250", "SMP NEGERI 50 Bandung", 3)

        ListSekolah.Add(51, "251", "SMP NEGERI 51 Bandung", 3)
        ListSekolah.Add(52, "252", "SMP NEGERI 52 Bandung", 3)
        ListSekolah.Add(53, "253", "SMP NEGERI 53 Bandung", 3)

        ListSekolah.Add(54, "254", "MTs NEGERI 1 Bandung", 3)
        ListSekolah.Add(55, "255", "MTs NEGERI 2 Bandung", 2)
    End Sub

    Public Sub init_List_SMA()
        ListSekolah.Add(1, "301", "SMA NEGERI 1 Bandung", 2)
        ListSekolah.Add(2, "302", "SMA NEGERI 2 Bandung", 1)
        ListSekolah.Add(3, "303", "SMA NEGERI 3 Bandung", 1)
        ListSekolah.Add(4, "304", "SMA NEGERI 4 Bandung", 1)
        ListSekolah.Add(5, "305", "SMA NEGERI 5 Bandung", 1)
        ListSekolah.Add(6, "306", "SMA NEGERI 6 Bandung", 2)
        ListSekolah.Add(7, "307", "SMA NEGERI 7 Bandung", 2)
        ListSekolah.Add(8, "308", "SMA NEGERI 8 Bandung", 1)
        ListSekolah.Add(9, "309", "SMA NEGERI 9 Bandung", 2)
        ListSekolah.Add(10, "310", "SMA NEGERI 10 Bandung", 3)

        ListSekolah.Add(11, "311", "SMA NEGERI 11 Bandung", 1)
        ListSekolah.Add(12, "312", "SMA NEGERI 12 Bandung", 3)
        ListSekolah.Add(13, "313", "SMA NEGERI 13 Bandung", 3)
        ListSekolah.Add(14, "314", "SMA NEGERI 14 Bandung", 3)
        ListSekolah.Add(15, "315", "SMA NEGERI 15 Bandung", 3)
        ListSekolah.Add(16, "316", "SMA NEGERI 16 Bandung", 3)
        ListSekolah.Add(17, "317", "SMA NEGERI 17 Bandung", 3)
        ListSekolah.Add(18, "318", "SMA NEGERI 18 Bandung", 3)
        ListSekolah.Add(19, "319", "SMA NEGERI 19 Bandung", 3)
        ListSekolah.Add(20, "320", "SMA NEGERI 20 Bandung", 2)

        ListSekolah.Add(21, "321", "SMA NEGERI 21 Bandung", 3)
        ListSekolah.Add(22, "322", "SMA NEGERI 22 Bandung", 2)
        ListSekolah.Add(23, "323", "SMA NEGERI 23 Bandung", 3)
        ListSekolah.Add(24, "324", "SMA NEGERI 24 Bandung", 1)
        ListSekolah.Add(25, "325", "SMA NEGERI 25 Bandung", 3)
        ListSekolah.Add(26, "326", "SMA NEGERI 26 Bandung", 3)
        ListSekolah.Add(27, "327", "SMA NEGERI 27 Bandung", 3)
        ListSekolah.Add(28, "328", "MA NEGERI 1 Bandung", 2)
        ListSekolah.Add(29, "329", "MA NEGERI 2 Bandung", 3)

    End Sub

    Public Sub init_List_SMK()
        ListSekolah.Add(4011, "401", "SMK NEGERI 1 Bandung", "Adm. Perkantoran")
        ListSekolah.Add(4012, "401", "SMK NEGERI 1 Bandung", "Akuntansi")
        ListSekolah.Add(4013, "401", "SMK NEGERI 1 Bandung", "Pemasaran")
        ListSekolah.Add(4014, "401", "SMK NEGERI 1 Bandung", "Usaha Perjalanan Wisata")

        ListSekolah.Add(4021, "402", "SMK NEGERI 2 Bandung", "Tek. Mesin Perkakas")
        ListSekolah.Add(4022, "402", "SMK NEGERI 2 Bandung", "Tek. Gambar Mesin")
        ListSekolah.Add(4023, "402", "SMK NEGERI 2 Bandung", "Tek. Las")
        ListSekolah.Add(4024, "402", "SMK NEGERI 2 Bandung", "Tek. Jaringan Komputer")
        ListSekolah.Add(4025, "402", "SMK NEGERI 2 Bandung", "Multimedia")
        ListSekolah.Add(4026, "402", "SMK NEGERI 2 Bandung", "Animasi")
        ListSekolah.Add(4027, "402", "SMK NEGERI 2 Bandung", "Rekayasa Perangkat Lunak")

        ListSekolah.Add(4031, "403", "SMK NEGERI 3 Bandung", "Akuntansi")
        ListSekolah.Add(4032, "403", "SMK NEGERI 3 Bandung", "Adm. Perkantoran")
        ListSekolah.Add(4033, "403", "SMK NEGERI 3 Bandung", "Penjualan")
        ListSekolah.Add(4034, "403", "SMK NEGERI 3 Bandung", "UJP")
        ListSekolah.Add(4035, "403", "SMK NEGERI 3 Bandung", "Multimedia")

        ListSekolah.Add(4041, "404", "SMK NEGERI 4 Bandung", "Tek. Komputer Jaringan")
        ListSekolah.Add(4042, "404", "SMK NEGERI 4 Bandung", "Rekayasa Perangkat Lunak")
        ListSekolah.Add(4043, "404", "SMK NEGERI 4 Bandung", "Multimedia")
        ListSekolah.Add(4044, "404", "SMK NEGERI 4 Bandung", "Tek. Audio Video")
        ListSekolah.Add(4045, "404", "SMK NEGERI 4 Bandung", "Tek. Instalasi Tenaga Listrik")
        ListSekolah.Add(4046, "404", "SMK NEGERI 4 Bandung", "Tek. Otomasi Industri")

        ListSekolah.Add(4051, "405", "SMK NEGERI 5 Bandung", "Tek. Gambar Bangunan")
        ListSekolah.Add(4052, "405", "SMK NEGERI 5 Bandung", "Tek. Konstruksi Bangunan")
        ListSekolah.Add(4053, "405", "SMK NEGERI 5 Bandung", "Survei Pemetaan")
        ListSekolah.Add(4054, "405", "SMK NEGERI 5 Bandung", "Analis Kimia")
        ListSekolah.Add(4055, "405", "SMK NEGERI 5 Bandung", "Tek. Komputer dan Jaringan")

        ListSekolah.Add(4061, "406", "SMK NEGERI 6 Bandung", "Tek. Gambar Bangunan")
        ListSekolah.Add(4062, "406", "SMK NEGERI 6 Bandung", "Tek. Konstruksi Kayu")
        ListSekolah.Add(4063, "406", "SMK NEGERI 6 Bandung", "Tek. Audio Video")
        ListSekolah.Add(4064, "406", "SMK NEGERI 6 Bandung", "Tek. Listrik Pemakaian")
        ListSekolah.Add(4065, "406", "SMK NEGERI 6 Bandung", "Tek. Mesin Perkakas")
        ListSekolah.Add(4066, "406", "SMK NEGERI 6 Bandung", "Tek. Mekanik Otomotif")

        ListSekolah.Add(4071, "407", "SMK NEGERI 7 Bandung", "Tek. Penyempurnaan Tekstil")
        ListSekolah.Add(4072, "407", "SMK NEGERI 7 Bandung", "Kimia Industri")
        ListSekolah.Add(4073, "407", "SMK NEGERI 7 Bandung", "Kimia Analis")
        ListSekolah.Add(4074, "407", "SMK NEGERI 7 Bandung", "Farmasi")

        ListSekolah.Add(4081, "408", "SMK NEGERI 8 Bandung", "Tek. Mekanik Otomotif")
        ListSekolah.Add(4082, "408", "SMK NEGERI 8 Bandung", "Tek. Mekanik Body Otomotif")
        ListSekolah.Add(4083, "408", "SMK NEGERI 8 Bandung", "Tek. Mekanik Sepeda Motor")

        ListSekolah.Add(4091, "409", "SMK NEGERI 9 Bandung", "Hotel dan Restoran")
        ListSekolah.Add(4092, "409", "SMK NEGERI 9 Bandung", "Tata Busana")
        ListSekolah.Add(4093, "409", "SMK NEGERI 9 Bandung", "Kecantikan Kulit")
        ListSekolah.Add(4094, "409", "SMK NEGERI 9 Bandung", "Tata Kecantikan Rambut")
        ListSekolah.Add(4095, "409", "SMK NEGERI 9 Bandung", "Restoran")
        ListSekolah.Add(4096, "409", "SMK NEGERI 9 Bandung", "Pastry")

        ListSekolah.Add(4101, "410", "SMK NEGERI 10 Bandung", "Seni Tari")
        ListSekolah.Add(4102, "410", "SMK NEGERI 10 Bandung", "Seni Musik")
        ListSekolah.Add(4103, "410", "SMK NEGERI 10 Bandung", "Seni Karawitan")
        ListSekolah.Add(4104, "410", "SMK NEGERI 10 Bandung", "Seni Teater")

        ListSekolah.Add(4111, "411", "SMK NEGERI 11 Bandung", "Akuntansi")
        ListSekolah.Add(4112, "411", "SMK NEGERI 11 Bandung", "Adm. Perkantoran")
        ListSekolah.Add(4113, "411", "SMK NEGERI 11 Bandung", "Pemasaran")
        ListSekolah.Add(4114, "411", "SMK NEGERI 11 Bandung", "Rekayasa Perangkat Lunak")
        ListSekolah.Add(4115, "411", "SMK NEGERI 11 Bandung", "Multimedia")
        ListSekolah.Add(4116, "411", "SMK NEGERI 11 Bandung", "Tek. Komputer dan Jaringan")

        ListSekolah.Add(4121, "412", "SMK NEGERI 12 Bandung", "Permesinan")
        ListSekolah.Add(4122, "412", "SMK NEGERI 12 Bandung", "KRPU")
        ListSekolah.Add(4123, "412", "SMK NEGERI 12 Bandung", "KBPU")
        ListSekolah.Add(4124, "412", "SMK NEGERI 12 Bandung", "EPU")
        ListSekolah.Add(4125, "412", "SMK NEGERI 12 Bandung", "KPU")
        ListSekolah.Add(4126, "412", "SMK NEGERI 12 Bandung", "Air Frame dan Power Plant")

        ListSekolah.Add(4131, "413", "SMK NEGERI 13 Bandung", "Analis Kimia")
        ListSekolah.Add(4132, "413", "SMK NEGERI 13 Bandung", "Tek. Komputer dan Jaringan")

        ListSekolah.Add(4141, "414", "SMK NEGERI 14 Bandung", "Kriya Kayu")
        ListSekolah.Add(4142, "414", "SMK NEGERI 14 Bandung", "Kriya Keramik")
        ListSekolah.Add(4143, "414", "SMK NEGERI 14 Bandung", "Kriya Kulit")
        ListSekolah.Add(4144, "414", "SMK NEGERI 14 Bandung", "Kriya Logam")
        ListSekolah.Add(4145, "414", "SMK NEGERI 14 Bandung", "Kriya Tekstil")
        ListSekolah.Add(4146, "414", "SMK NEGERI 14 Bandung", "Seni Rupa")
        ListSekolah.Add(4147, "414", "SMK NEGERI 14 Bandung", "Tek. Body Otomotif")
        ListSekolah.Add(4148, "414", "SMK NEGERI 14 Bandung", "Multimedia")

        ListSekolah.Add(4151, "415", "SMK NEGERI 15 Bandung", "Pekerjaan Sosial")
        ListSekolah.Add(4152, "415", "SMK NEGERI 15 Bandung", "Akomodasi Perhotelan")

        'ListSekolah.Add(15, "416", "SMK PU NEGERI Bandung", "")
    End Sub

   
End Module
